inherited FrmConsultaCor: TFrmConsultaCor
  Caption = 'FrmConsultaCor'
  PixelsPerInch = 96
  TextHeight = 13
  inherited dbgConsulta: TDBGrid
    DataSource = DM.DataSourceCor
    OnDrawColumnCell = dbgConsultaDrawColumnCell
  end
  inherited btnNovo: TButton
    OnClick = btnNovoClick
  end
  inherited btnAlterar: TButton
    OnClick = btnAlterarClick
  end
end
